BEGIN "AMIADD"
BOOLEAN PROCEDURE AMIADD;
   BEGIN
   INTEGER I;
   START_CODE  SETOM I; TTCALL 6,I; END;  comment GETLIN;
   IF I=-1 THEN I←0;
   RETURN((I LAND '20000000000)≠0);
   END;

PRINT("I am",(IF ¬AMIADD THEN " NOT " ELSE " "),"a DD !!!",'15&'12);
END "AMIADD";